home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Feb / di9802kw / WebPics1.dfm / WebPics1.txt
Text File  |  1997-08-19  |  5KB  |  170 lines
  1. object wmdWebPics: TwmdWebPics
  2.   OnCreate = wmdWebPicsCreate
  3.   OnDestroy = wmdWebPicsDestroy
  4.   Actions = <
  5.     item
  6.       Default = True
  7.       Name = 'wacGetPic'
  8.       OnAction = wmdWebPicswacGetPicAction
  9.     end
  10.     item
  11.       Name = 'wacConfigure'
  12.       PathInfo = '/config'
  13.       OnAction = wmdWebPicswacConfigureAction
  14.     end>
  15.   Left = 200
  16.   Top = 108
  17.   Height = 193
  18.   Width = 205
  19.   object qryWebPics: TQuery
  20.     DatabaseName = 'WebPicsDB'
  21.     SQL.Strings = (
  22.       'select PICTURE_TYPE, PICTURE_BLOB'
  23.       'from WEBPICS'
  24.       'where PICTURE_NO = :id')
  25.     Params.Data = {0100010002696400030400000000000000}
  26.     Left = 128
  27.     Top = 8
  28.   end
  29.   object dbsWebPics: TDatabase
  30.     DatabaseName = 'WebPicsDB'
  31.     KeepConnection = False
  32.     LoginPrompt = False
  33.     SessionName = 'Default'
  34.     Left = 28
  35.     Top = 8
  36.   end
  37.   object wppListSchemes: TPageProducer
  38.     HTMLDoc.Strings = (
  39.       '<html>'
  40.       '<head>'
  41.       '<title>WebPics Configuration</title>'
  42.       '</head>'
  43.       '<body>'
  44.       '<h2>WebPics Configuration</h2>'
  45.       '<p>Select one of the configurations below to update or delete'
  46.       
  47.         'or <a href="<#SCRIPT>/config?action=Get&id=0">add a new configur' +
  48.         'ation</a>.</p>'
  49.       '<#SCHEMES>'
  50.       '</body>'
  51.       '</html>')
  52.     OnHTMLTag = wppListSchemesHTMLTag
  53.     Left = 28
  54.     Top = 60
  55.   end
  56.   object wppAddScheme: TPageProducer
  57.     HTMLDoc.Strings = (
  58.       '<html>'
  59.       '<head>'
  60.       '<title>WebPics Configuration</title>'
  61.       '</head>'
  62.       '<body>'
  63.       '<h2>WebPics Add a Configuration</h2>'
  64.       
  65.         '<p>Enter values for each field below then press <strong>Add</str' +
  66.         'ong> to save it.</p>'
  67.       '<form method=post action="<#SCRIPT>/config">'
  68.       '<center>'
  69.       '<table width=100%>'
  70.       
  71.         '<tr><td align=right>Scheme name<td><input type=text name="name" ' +
  72.         'size=32 maxlength=32>'
  73.       
  74.         '<td align=right>Alias<td><input type=text name="alias" size=32 m' +
  75.         'axlength=32></tr>'
  76.       
  77.         '<tr><td align=right>User id<td><input type=text name="user" size' +
  78.         '=32 maxlength=32>'
  79.       
  80.         '<td align=right>Password<td><input type=password name="password"' +
  81.         ' size=32 maxlength=32></tr>'
  82.       
  83.         '<tr><td align=right valign=top>Other parameters<td><textarea nam' +
  84.         'e="other" rows=3 cols=32></textarea></tr>'
  85.       
  86.         '<tr><td align=right>Table<td><input type=text name="table" size=' +
  87.         '32 maxlength=32>'
  88.       
  89.         '<td align=right>Key field<td><input type=text name="key" size=32' +
  90.         ' maxlength=32></tr>'
  91.       
  92.         '<tr><td align=right>Blob field<td><input type=text name="blob" s' +
  93.         'ize=32 maxlength=32>'
  94.       
  95.         '<td align=right>Type field<td><input type=text name="type" size=' +
  96.         '32 maxlength=32></tr>'
  97.       '</table>'
  98.       '<p><input type=submit name="action" value="Add">'
  99.       '<input type=reset name="Reset"></p>'
  100.       '</center>'
  101.       '</form>'
  102.       
  103.         '<p>Return to the <a href="<#SCRIPT>/config">list of current sche' +
  104.         'mes</a>.</p>'
  105.       '</body>'
  106.       '</html>')
  107.     OnHTMLTag = wppAddSchemeHTMLTag
  108.     Left = 28
  109.     Top = 108
  110.   end
  111.   object wppUpdateScheme: TPageProducer
  112.     HTMLDoc.Strings = (
  113.       '<html>'
  114.       '<head>'
  115.       '<title>WebPics Configuration</title>'
  116.       '</head>'
  117.       '<body>'
  118.       '<h2>WebPics Update a Configuration</h2>'
  119.       
  120.         '<p>Alter values in any field below then press <strong>Update</st' +
  121.         'rong> to save it.</p>'
  122.       '<form method=post action="<#SCRIPT>/config">'
  123.       '<center>'
  124.       '<table width=100%>'
  125.       
  126.         '<tr><td align=right>Scheme id<td><#ID><input type=hidden name="i' +
  127.         'd" value="<#ID>"></tr>'
  128.       
  129.         '<tr><td align=right>Scheme name<td><input type=text name="name" ' +
  130.         'value="<#NAME>" size=32 maxlength=32>'
  131.       
  132.         '<td align=right>Alias<td><input type=text name="alias" value="<#' +
  133.         'ALIAS>" size=32 maxlength=32></tr>'
  134.       
  135.         '<tr><td align=right>User id<td><input type=text name="user" valu' +
  136.         'e="<#USER>" size=32 maxlength=32>'
  137.       
  138.         '<td align=right>Password<td><input type=password name="password"' +
  139.         ' size=32 maxlength=32></tr>'
  140.       
  141.         '<tr><td align=right valign=top>Other parameters<td><textarea nam' +
  142.         'e="other" rows=3 cols=32><#OTHER></textarea></tr>'
  143.       
  144.         '<tr><td align=right>Table<td><input type=text name="table" value' +
  145.         '="<#TABLE>" size=32 maxlength=32>'
  146.       
  147.         '<td align=right>Key field<td><input type=text name="key" value="' +
  148.         '<#KEY>" size=32 maxlength=32></tr>'
  149.       
  150.         '<tr><td align=right>Blob field<td><input type=text name="blob" v' +
  151.         'alue="<#BLOB>" size=32 maxlength=32>'
  152.       
  153.         '<td align=right>Type field<td><input type=text name="type" value' +
  154.         '="<#TYPE>" size=32 maxlength=32></tr>'
  155.       '</table>'
  156.       '<p><input type=submit name="action" value="Update">'
  157.       '<input type=reset name="Reset"></p>'
  158.       '</center>'
  159.       '</form>'
  160.       
  161.         '<p>Return to the <a href="<#SCRIPT>/config">list of current sche' +
  162.         'mes</a>.</p>'
  163.       '</body>'
  164.       '</html>')
  165.     OnHTMLTag = wppUpdateSchemeHTMLTag
  166.     Left = 128
  167.     Top = 108
  168.   end
  169. end
  170.